Option Explicit
Sub C_Sample047()
    Dim myWb As Workbook
    Dim myWd As Window
    Set myWb = Workbooks(1) 			'Nï
    Set myWd = myWb.Windows(1)		'N
    With myWd
        .Zoom = 200 'v(H) 		'vw
        MsgBox "wܧܭvA{bni٭C"
        .Zoom = False 				'vѰ
    End With
    Set myWd = Nothing				'
    Set myWb = Nothing
End Sub
